home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / secallib.inc
Text File  |  1998-06-24  |  2KB  |  71 lines
  1. /******************************************************************************\
  2. **  $VER: inc/secallib.inc 1.0                                                **
  3. **  Secal Release 1.0                                                         **
  4. **  Secal.lib interface definitions                                           **
  5. **  Copyright (c) 1996 Tibor Kulcsar & Jozsef Makrai (TDS Development)        **
  6. \******************************************************************************/
  7.  
  8.  
  9. import strlen;
  10. import strcopy;
  11. import strcopym;
  12. import strdiff;
  13. import strdiffi;
  14. import strcat;
  15. import strcatm;
  16.  
  17.  
  18. #-------------------------------------------------------------------------------
  19.  
  20.  
  21. pattern StrLen(_str) is                    # D0.L=LENGTH, A0=STR END
  22. a0:=_str;
  23. call strlen;
  24. endp;                                                            # STRLEN
  25.  
  26.  
  27.  
  28. pattern StrCopy(_source,_dest) is                # A0=DEST END
  29. safe a0:=_source; a1:=_dest;;
  30. call strcopy;
  31. endp;                                                            # STRCOPY
  32.  
  33.  
  34.  
  35. pattern StrCopyM(_source,_dest,_max) is                # A0=DEST END
  36. safe a0:=_source; a1:=_dest; d0.l:=_max;;
  37. call strcopym;
  38. endp;                                                            # STRCOPYM
  39.  
  40.  
  41.  
  42. pattern StrDiff(_source,_dest) is                # D0=FIRST DIFF, OR 0
  43. safe a0:=_source; a1:=_dest;;
  44. call strdiff;
  45. endp;                                                            # STRDIFF
  46.  
  47.  
  48.  
  49. pattern StrDiffI(_source,_dest) is                # D0=FIRST DIFF, OR 0
  50. safe a0:=_source; a1:=_dest;;
  51. call strdiffi;
  52. endp;                                                            # STRDIFFI
  53.  
  54.  
  55.  
  56. pattern StrCat(_source,_dest) is                # A0=DEST END
  57. safe a0:=_source; a1:=_dest;;
  58. call strcat;
  59. endp;                                                            # STRCAT
  60.  
  61.  
  62.  
  63. pattern StrCatM(_source,_dest,_max) is                # A0=DEST END
  64. safe a0:=_source; a1:=_dest; d0.l:=_max;;
  65. call strcatm;
  66. endp;                                                            # STRCATM
  67.  
  68.  
  69. #-------------------------------------------------------------------------------
  70.  
  71.